home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64 / SOUNDCONTROL mac (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  24KB  |  540 lines
  1. 0 ifpeek(50257)<>20thenpoke50257,16
  2. 10 goto30
  3. 20 goto55013
  4. 30 print"[147]":ifpeek(38912)<>173thensys23552
  5. 100 clr:poke45,202:poke46,85:clr:poke56,92
  6. 105 poke53272,21:poke53265,155
  7. 110 poke53280,15:poke53281,15:printchr$(142);chr$(8):sys40148:clr:restore
  8. 112 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  9. 115 print"[147]":forx=0to24:poke54272+x,0:nextx
  10. 120 print"[147][156]                                        ";
  11. 130 print"       s o u n d c o n t r o l   2      ";
  12. 135 print"            programmpaket               ";
  13. 140 print"                                        "
  14. 150 print"[149][146]von holger gehrmann - deutschland, 1984"
  15. 160 print"bitte funktion waehlen:"
  16. 170 print"  1 [146] hauptdemo (funktionendemo)"
  17. 180 print"  2 [146] sound-demo 1 : bonnie & clyde"
  18. 190 print"  3 [146] sound-demo 2 : menuett (j.s.bach)"
  19. 200 print"  4 [146] tonwelle als grafik darstellen"
  20. 210 print"  5 [146] soundcontrol 2-anleitung"
  21. 220 print"  6 [146] zum selbst ausprobieren: orgel"
  22. 230 print"  7 [146] a d s r als grafik darstellen"
  23. 300 getr$:r=val(r$):ifr<1then300
  24. 310 onrgoto30000,10000,20000,40000,50000,55000,56000
  25. 320 goto300
  26. 5505 ifd<1then20
  27. 10000 rem"
  28. 10009 [158]39936:[153]"loadstop":[151]53280,7:[151]53281,7:[141]10470
  29. 10010 t$[178]"*0*%0%"
  30. 10020 pl[178]12:[151]845,0:ge[178]25:p[178]5
  31. 10030 [129]y[178]0[164]2:[151]835[170]y,tv(y[170]1):[151]838[170]y,a(y[170]1)[172]16[170]d(y[170]1):[151]832[170]y,wv(y[170]1)
  32. 10040 [151]841[170]y,s(y[170]1)[172]16:[130]y:[151]50176[170]24,15[170]64[170]32:[151]50176[170]23,1[170]15[172]16
  33. 10050 [151]847,16:[151]848,3:[151]849,32:[151]860,3:[151]866,1:[151]899,10
  34. 10060 [151]853,3:[151]855,3:[151]856,2:[151]867,250
  35. 10070 [151]863,3:[151]857,3:[151]850,10
  36. 10090 [151]851,1
  37. 10100 [135]t1:[139]t1[178]255[167][138]
  38. 10110 [139]t1[179][177]0[167][151]845,1:[151]846,t1[170]pl[170]12:[158]38912
  39. 10120 [135]t2
  40. 10130 [139]t2[178]1[167][151]50176[170]18,0:ge[178]40:[137]10150
  41. 10140 [139]t2[179][177]0[167][151]845,3:[151]846,t2[170]pl:[158]38912
  42. 10150 p[178]p[170]1:[139]p[178]7[167]p[178]1
  43. 10160 [139][202](t$,p,1)[178]"*"[167][151]845,2:[151]846,25:[158]38912
  44. 10170 [139][202](t$,p,1)[178]"%"[167][151]845,2:[151]846,50:[158]38912
  45. 10180 [129]w[178]1[164]ge:[130]w:[137]10100
  46. 10200 [131]19,00,28,24,00,00,31,00,28,19,00,00,19,00,00,24,00,00,00,00,00,19,00,00
  47. 10210 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,00,19,00,00
  48. 10220 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,24,19,00,00
  49. 10230 [131]21,00,24,05,00,00,24,05,00,00,00,00
  50. 10240 [131]21,07,00,12,00,00,19,00,00,24,00,00,00,00
  51. 10250 [131]28,24,00,00,31,00,28,19,00,00,19,00,00,24,00,00,00,00,00,19,00,00
  52. 10260 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,00,19,00,00
  53. 10270 [131]20,00,21,17,00,00,24,00,26,12,00,00,24,00,27,07,00,00,26,00,24,19,00,00
  54. 10280 [131]21,00,24,12,00,00,00,00,00,24,00,00
  55. 10290 [131]00,00,00,36,00,00,00,00,00,48,00,00,00,00
  56. 10300 [131]28,24,00,00,28,00,00,19,00,00,28,00,00,24,00,00,00,00,00,19,00,00
  57. 10310 [131]24,00,29,17,00,00,00,00,29,12,00,00,00,00,29,17,00,00
  58. 10320 [131]24,00,26,12,00,00,28,00,00,24,00,00,00,00,00,19,00,00,00,00,00,24,00,00
  59. 10330 [131]00,00,00,12,00,00
  60. 10340 [131]24,00,29,17,00,00,00,00,29,12,00,00,00,00,29,17,00,00
  61. 10350 [131]24,00,26,12,00,00,00,00,28,24,00,00,27,00,26,19,00,00,25,00,00,13,00,00
  62. 10360 [131]00,00,00,09,00,00
  63. 10370 [131]21,00,26,17,00,00,28,00,29,21,00,00,30,00,31,23,00,00
  64. 10380 [131] 27,00,26,07,00,00,24,00,00,24,00,00,19,00,20,20,00,00,21,00
  65. 10390 [131]00,24,00,00,00,00,00,19,00,00
  66. 10400 [131]21,00,26,17,00,00,28,00,29,21,00,00,30,00,31,23,00,00
  67. 10410 [131] 27,00,26,07,00,00,24,00,00,24,00,00,00,00,31,24,31,00,31,00
  68. 10420 [131]30,24,30,00,30,00,29,24,29,00
  69. 10430 [131]29,00,28,24,00,00
  70. 10440 [131]00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00,00
  71. 10450 [131]00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,00,00
  72. 10460 [131]00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,255,255
  73. 10470 [143] menue
  74. 10480 [153]"loadverifybonnie & clyde-song
  75. 10490 print"waves eingeben (+,- o.return druecken!)":fory=1to3
  76. 10495 u(1)=2:u(2)=1:u(3)=3
  77. 10500 print"generator";y:w=u(y):gosub60000:wv(y)=w(w):nexty:print"[158]"
  78. 10510 poke198,3:poke631,13:poke632,13:poke633,13
  79. 10530 print"7,2,7[145]":inputtv(1),tv(2),tv(3)
  80. 10550 print"00,00,00, 10,00,00, 00,2,3[145]"
  81. 10560 inputa(1),a(2),a(3),d(1),d(2),d(3),s(1),s(2),s(3)
  82. 11000 return
  83. 20000 rem"
  84. 20006 [131]-1,-1
  85. 20009 [153]"loadstop":[151]53280,6:[151]53281,6
  86. 20010 [158]39936:[141]20340
  87. 20020 [151]50176[170]24,15[170]32[170]64:pl[178]20
  88. 20030 [129]y[178]0[164]2:[151]832[170]y,wv(y[170]1):[151]835[170]y,tv(y[170]1):[151]838[170]y,a(y[170]1)[172]16[170]d(y[170]1)
  89. 20040 [151]841[170]y,s(y[170]1)[172]16:[130]y
  90. 20050 [151]847,16:[151]848,16:[151]849,16:[143] einstellungen
  91. 20070 [151]853,2:[151]854,5:[151]855,4:[151]856,2
  92. 20080 [151]865,1:[151]899,12
  93. 20090 [151]50176[170]23,1:e[178]38912:j[178]845:d[178]846
  94. 20095 [140]
  95. 20096 [153]" bitte warten!!"
  96. 20097 [135]t,u:[139]t[179][177][171]1[167]20097
  97. 20098 [153]"on                 "
  98. 20100 [151]860,1:[151]857,1:[151]867,150
  99. 20110 [135]t1:[139]t1[178]255[167]pl[178]pl[170]1:[140]:[138]
  100. 20120 [139]t1[179][177]0[167][151]j,1:[151]d,t1[170]pl[170]12:[158]e:[151]j,3:[151]d,t1[170]pl[170]36:[158]e
  101. 20130 [135]t2
  102. 20140 [139]t2[179][177]0[167][151]j,2:[151]d,t2[170]pl:[158]e
  103. 20150 [129]w[178]1[164]90:[130]w:[137]20110
  104. 20160 [143] melody
  105. 20170 [131]11,23,13,0,14,11,18,0,23,14,0,0
  106. 20180 [131]21,16,19,18,0,19,0,23,0,28,0,25
  107. 20190 [131]0,23,0,22,18,0,0,0,16,18,0,0
  108. 20200 [131]142,23,0,0,13,0,14,11,11,13,0,14
  109. 20210 [131]19,16,18,0,16,19,22,0,23,13,19,0
  110. 20220 [131]18,14,16,0,14,18,22,0,23,11,18,0
  111. 20230 [131]16,13,14,0,13,10,18,0,14,11,11,0
  112. 20240 [131]14,6,13,0,0,18,0,20,0,22,0,18
  113. 20250 [131]11,23,13,0,14,11,18,0,23,14,0,0
  114. 20260 [131]21,16,19,18,0,19,0,23,0,28,0,25
  115. 20270 [131]0,23,0,22,18,0,0,0,16,18,0,0
  116. 20280 [131]142,23,0,0,13,0,14,11,11,13,0,14
  117. 20290 [131]19,16,18,0,16,19,22,0,23,13,19,0
  118. 20300 [131]18,14,16,0,14,18,22,0,23,11,18,0
  119. 20310 [131]16,13,14,0,13,10,18,0,14,0,13,0
  120. 20320 [131]11,11,0,0,0,35,0,0,0,47,00,00
  121. 20330 [131]255,255
  122. 20340 [143] anfangsbild
  123. 20350 [153][199](14);"loadcont                  (NULL)enuett
  124. 20360 print"        von [202]ohann [211]ebastian [194]ach"
  125. 20380 print"[159][215]aves eingeben (+,- o.return druecken!)":u(1)=3:u(2)=3:u(3)=1
  126. 20385 fory=1to3
  127. 20390 print"generator";y:w=u(y):gosub60000:wv(y)=w(w):nexty:print"";
  128. 20400 poke198,3:poke631,13:poke632,13:poke633,13
  129. 20420 print"7,7,7[145]":inputtv(1),tv(2),tv(3)
  130. 20440 print"01,00,01, 03,00,03, 14,4,5[145]"
  131. 20450 inputa(1),a(2),a(3),d(1),d(2),d(3),s(1),s(2),s(3)
  132. 20460 return
  133. 30000 rem"
  134. 30010 [129]x[178]0[164]24:[151]50176[170]x,0:[130]x:l[178]50176[170]24
  135. 30020 [129]y[178]0[164]2:[151]832[170]y,33:[151]835[170]y,7:[151]838[170]y,1[172]16[170]3:[151]841[170]y,160:[130]y
  136. 30030 [151]53280,7:[151]53281,7
  137. 30040 [151]844,1:[151]845,1:[151]846,0:[158]38912
  138. 30050 [151]847,0:[151]848,0:[151]849,0:[151]860,0
  139. 30060 h$[178]"":b$[178]"":[129]x[178]1[164]24:h$[178]h$[170]b$:[130]x:h$[178]h$[170]"for      taste druecken!"
  140. 30070 a$[178]"loadstop hauptdemo                              wait"
  141. 30080 [153]a$
  142. 30090 [153]"sie haben sicher schon gemerkt, dass das"
  143. 30100 [153]"erzeugen von toenen in basic"
  144. 30110 [153]" 1. clrmuehsam"
  145. 30120 [153]" 2. clrviel zu langsam
  146. 30130 print" 3. [156]aufwendig"
  147. 30140 print"ist. deshalb gibt es nun [149]soundcontrol 2,"
  148. 30150 print"d i e   musikprogrammierhilfe, mit der"
  149. 30160 print"man nicht nur einfache toene erzeugen   kann."
  150. 30170 printh$:wait198,1
  151. 30180 printa$:print"sie hoeren normale toene, die sie durch"
  152. 30190 print"einfache basic-programme erzeugen koen-"
  153. 30200 print"nen."
  154. 30210 print"gleich merken sie den unterschied!"
  155. 30220 printh$:poke198,0
  156. 30230 pokel,15
  157. 30240 poke838,5*16+10
  158. 30250 poke846,int(rnd(ti)*20)+40:sys38912
  159. 30260 forw=1to100:getr$:ifr$<>""then30280
  160. 30270 nextw:goto30250
  161. 30280 pokel,0:printa$
  162. 30290 print"[156]nun das gleiche im sogenannten
  163. 30300 [153]" polyphonic-effekt.
  164. 30310 print"die toene gleiten ineinander ueber."
  165. 30320 printh$
  166. 30330 poke838,1*16+12:poke839,1*16+12:poke840,1*16+12:pokel,15:poke845,0
  167. 30340 poke841,0:poke842,0:poke843,0
  168. 30350 poke846,int(rnd(ti)*20)+40:sys38912
  169. 30360 forw=1to50:getr$:ifr$<>""then30380
  170. 30370 nextw:goto30350
  171. 30380 printa$:pokel,0
  172. 30390 print"nun kommen die spezialeffekte an die    reihe."
  173. 30400 print"[149]als erstes hoeren sie den glide-effekt."
  174. 30410 print"der ton wird, nachdem er angeschlagen"
  175. 30420 print"wurde, stetig erhoeht oder erniedrigt."
  176. 30430 print"die glide-geschwindigkeit ist ebenfalls einstellbar."
  177. 30440 print"solche effekte waren in normalen basic- programmen nicht moeglich!
  178. 30450 [153]h$
  179. 30460 [129]x[178]0[164]24:[151]50176[170]x,0:[130]x:[151]l,15
  180. 30470 [151]841,160:[151]842,160:[151]843,160
  181. 30480 [151]847,1:[151]848,3:[151]849,1
  182. 30490 [151]850,3:[151]851,6:[151]852,2
  183. 30500 [151]846,[181]([187](ti)[172]20)[170]40:[158]38912
  184. 30510 [129]w[178]1[164]100:[161]r$:[139]r$[179][177]""[167]30530
  185. 30520 [130]w:[137]30500
  186. 30530 [151]l,0:[153]a$
  187. 30540 [153]"wir kommen nun zur tonmodulation. "
  188. 30550 [153]"verifysie hoeren einen ton, der langsam modu-"
  189. 30560 [153]"liert wird, d.h. dessen hoehe leicht    schwingt."
  190. 30570 [153]"einstellbar ist die moduliergeschwindig-";
  191. 30580 [153]"keit und der modulierbereich (=die      groesste abweichung).
  192. 30590 printh$
  193. 30600 forx=0to24:poke50176+x,0:nextx:pokel,15:poke893,1
  194. 30610 poke845,1:poke846,50:poke847,0:poke853,4:poke856,2:sys38912
  195. 30620 forw=1to800:nextw:poke847,16
  196. 30630 forx=2to8step.005:poke856,x:getr$:ifr$<>""then30650
  197. 30640 nextx:poke198,0:wait198,1:poke198,0
  198. 30650 pokel,0:printa$
  199. 30660 print"sie sehen, wie aus einem einfachen ein"
  200. 30670 print"charaktervoller ton wird."
  201. 30680 print"[149]doch das ist laengst nicht alles, was"
  202. 30690 print"soundcontrol[149] zu bieten hat:"
  203. 30700 print"auch das tastverhaeltnis kann mit dem"
  204. 30710 print"glide- oder dem modulationseffekt ver-  sehen werden."
  205. 30720 print"sie haben damit praktisch unbegrenzte   tonmoeglichkeiten!":printh$
  206. 30730 forx=0to24:poke50176+x,0:nextx:pokel,15
  207. 30740 poke845,1:poke838,1*16+12:poke839,1*16+12:poke840,1*16+12
  208. 30750 poke841,0:poke842,0:poke843,0:poke832,65:poke847,4:
  209. 30760 poke846,36:poke861,int(rnd(ti)*5)+4:sys38912
  210. 30770 forw=1to80:getr$:ifr$<>""then30790
  211. 30780 nextw:goto30760
  212. 30790 pokel,0:printa$
  213. 30800 print"und jetzt kommts:"
  214. 30810 print"die klangvariationsvielfalt von
  215. 30820 [153]"soundcontrol 2 bietet noch etwas."
  216. 30830 [153]"verifysogar den filter koennen sie modulieren"
  217. 30840 [153]"oder gliden lassen. auch hier ist wieder";
  218. 30850 [153]"alles einstellbar."
  219. 30860 [153]"clrsomit koennen sie beliebte synthesizer-"
  220. 30870 [153]"effekte wie z.b. wa-wa spielend in ihre"
  221. 30880 [153]"basic-musikstuecke einbauen."
  222. 30890 [129]x[178]0[164]24:[151]50176[170]x,0:[130]x:[151]l,15[170]64[170]32
  223. 30900 [151]50176[170]23,1[170]15[172]16:[151]867,210:[151]860,3:[151]857,3
  224. 30910 [151]832,33:[151]838,1[172]16[170]3:[151]841,173:[151]845,1
  225. 30920 t1$[178]"3600400036004300360048004745434543414041403836"
  226. 30930 q[178]1
  227. 30940 t[178][197]([202](t1$,q,2)):[139]t[179][177]0[167][151]846,t:[158]38912
  228. 30950 [139]t[178]0[167][129]r[178]1[164]20:[130]r
  229. 30960 [129]e[178]1[164]75:[130]e
  230. 30970 q[178]q[170]2:[139]q[179][195](t1$)[167]30940
  231. 30980 [151]50176[170]4,32:[153]h$:[151]198,0:[146]198,1:[151]198,0
  232. 30990 [153]a$:[151]l,0
  233. 31000 [153]"vielen dank fuers zuschauen und -hoeren"
  234. 31010 [153]"stopwritten 1984 by holger gehrmann"
  235. 31020 [129]w[178]1[164]1000:[130]w:[138]
  236. 40000 [151]50257,020:[143] status
  237. 40009 [141]40240
  238. 40010 [137]40070
  239. 40020 [158]40192:v[178]40448
  240. 40025 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]2
  241. 40027 [151]189,200[171][194](v[170]x)[172].78125
  242. 40030 [129]x[178]0[164]255:[151]187,x:[151]188,200[171][194](v[170]x)[172].78125:[158]40368:[130]
  243. 40060 [142]
  244. 40070 [151]53272,21:[151]53265,155
  245. 40075 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]3
  246. 40080 [151]53280,0:[151]53281,0:[129]x[178]0[164]24:[151]54272[170]x,0:[130]x:[151]54272[170]24,15
  247. 40090 [151]53265,27:[151]53272,21
  248. 40100 [153]"load                                        ";
  249. 40110 [153]" speicheroszilloskop  fuer oszillator 3 ";
  250. 40120 [153]"                                        wait":y[178]3
  251. 40150 [153]"**  tongenerator";y
  252. 40153 [153]"frequenz: cursortasten o.return druecken";:w[178]200:[139]y[178]3[167]w[178]10
  253. 40154 [141]61000:fq[178]w:[153]"waveform: +, - o. return druecken":w[178]1:[139]y[178]3[167]w[178]3
  254. 40155 [141]63000:wv[178]w(w):tv[178]7
  255. 40170 v[178]54272[170]((y[171]1)[172]7):[151]v[170]6,0:[151]v[170]4,0:[151]v[170]3,0
  256. 40180 [151]v[170]6,255:[151]v[170]4,wv:[151]v[170]3,tv:[151]v[170]1,fq
  257. 40190 [139]wv[178]21[176]wv[178]23[176]wv[178]19[176]wv[178]35[176]wv[178]67[167]y[178]y[171]1:[137]40150
  258. 40200 [153]:[153]"lesegenauigkeit:"
  259. 40210 [153]"cursortasten o. return druecken!":w[178]197:[141]61000:ge[178]w
  260. 40220 [151]40426,ge[170]55:[158]40416:[141]40020:[143]
  261. 40230 [146]198,1:[151]198,0:[138]
  262. 40240 [142]
  263. 50000 [143]"
  264. 50010 poke53280,3:poke53281,3
  265. 50015 print"[147][144]folgende sys- und poke-adressen koennen"
  266. 50017 print"sie in ihre eigenen programme aufnehmen,";
  267. 50018 print"wenn sie mit soundcontrol arbeiten:"
  268. 50020 print"   sys-adressen:                        [146]"
  269. 50030 print"[144]sys 39936  [149]soundcontrol anschalten."
  270. 50040 print"           oben links auf dem bildschirm";
  271. 50050 print"           erscheint:'soundcontrol 2...'";
  272. 50060 print"           (nicht loeschbar)"
  273. 50070 print"[144]sys 40148  [149]soundcontrol abschalten"
  274. 50080 print"[144]sys 38912  [149]ton erzeugen (naeheres"
  275. 50090 print"           spaeter unter 'kommandos')"
  276. 50100 print"[154]  taste druecken!":poke198,0:wait198,1:poke198,0
  277. 50110 print"[147]   grundeinstellungen:                  [146]"
  278. 50120 print"[144]832  [149]wellenform von stimme 1"
  279. 50130 print"[144]833  [149]wellenform von stimme 2"
  280. 50140 print"[144]834  [149]wellenform von stimme 3"
  281. 50150 print"[144]835  [149]tastverhaeltnis von stimme 1"
  282. 50160 print"[144]836  [149]tastverhaeltnis von stimme 2"
  283. 50170 print"[144]837  [149]tastverhaeltnis von stimme 3"
  284. 50180 print"[144]838  [149]anschlag und abschwellen, stimme 1"
  285. 50190 print"[144]839  [149]anschlag und abschwellen, stimme 2"
  286. 50200 print"[144]840  [149]anschlag und abschwellen, stimme 3"
  287. 50210 print"[144]841  [149]halten und ausklingen, stimme 1"
  288. 50220 print"[144]842  [149]halten und ausklingen, stimme 2"
  289. 50230 print"[144]843  [149]halten und ausklingen, stimme 3"
  290. 50240 print"naeheres zu den moeglichen wellenformen,";
  291. 50250 print"zu den funktionen von anschlag,abschwel-";
  292. 50260 print"len, halten und ausklingen und dem tast-";
  293. 50270 print"verhaeltnis finden sie im commodore 64-"
  294. 50280 print"anleitungsbuch."
  295. 50290 print"[154]    taste druecken!":wait198,1:poke198,0
  296. 50300 print"[147]   kommandos                            [146]"
  297. 50310 print"[144]845  [149]tongenerator-nummer (1-3) oder bei"
  298. 50320 print"     polyphon-effekt = 0"
  299. 50330 print"[144]846  [149]ton (als zahl von 2-94). die zahl"
  300. 50340 print"     fuer den jeweiligen ton finden sie"
  301. 50350 print"     im commodore 64-anleitungsbuch"
  302. 50360 print"     auf den seiten 158, 159. als zahl"
  303. 50370 print"     muessen sie die nummer in der"
  304. 50380 print"     ersten spalte (unter nr.) eingeben."
  305. 50390 print"um den ton dann zu erzeugen, geben sie"
  306. 50400 print"[144]sys38912 [149](ton erzeugen) ein."
  307. 50410 print"beispiel:"
  308. 50420 print"es soll auf stimme 1 der ton c erzeugt"
  309. 50430 print"werden:"
  310. 50440 print"sys39936:poke845,1:[156]poke846,36:sys38912"
  311. 50450 print"[149]erklaerung:"
  312. 50460 print"soundcontrol einschalten:stimme 1:[156]ton c:ton erzeugen"
  313. 50470 print"[154]     taste druecken!":wait198,1:poke198,0
  314. 50480 print"[147][149]bemerkung:"
  315. 50490 print"wenn oben links (in schwarz) auf dem"
  316. 50500 print"bildschirm 'soundcontrol 2...' steht,"
  317. 50510 print"ist der sys zum anschalten von sound-"
  318. 50520 print"control nicht erlaubt, nur wenn der text";
  319. 50530 print"nicht zu sehen ist, also nur,wenn sound-";
  320. 50540 print"control noch nicht angeschaltet ist."
  321. 50550 print"wenn das kommando zum erzeugen eines"
  322. 50560 print"tones gegeben wird, werden automatisch"
  323. 50570 print"die grundeinstellungen der jeweiligen"
  324. 50580 print"stimme uebernommen."
  325. 50590 print"durch den anschaltsys werden saemtliche"
  326. 50600 print"soundcontrol 2-speicherzellen auf einen"
  327. 50610 print"standard-wert gebracht, d.h. eigene ein-";
  328. 50620 print"stellungen werden geloescht."
  329. 50630 print"[154]   taste druecken!":wait198,1:poke198,0
  330. 50640 print"[147]   spezialeffekte                       [146]";
  331. 50650 print"[144]847  [149]effekteinstellungen fuer stimme 1"
  332. 50660 print"[144]848  [149]effekteinstellungen fuer stimme 2"
  333. 50670 print"[144]849  [149]effekteinstellungen fuer stimme 3"
  334. 50680 print"[144]850  [149]glidegeschwindigkeit fuer stimme 1"
  335. 50690 print"[144]851  [149]glidegeschwindigkeit fuer stimme 2"
  336. 50700 print"[144]852  [149]glidegeschwindigkeit fuer stimme 3"
  337. 50710 print"[144]853  [149]modulations-geschwindigkeit fuer        stimme 1"
  338. 50720 print"[144]854  [149]modulations-geschwindigkeit fuer        stimme 2"
  339. 50730 print"[144]855  [149]modulations-geschwindigkeit fuer        stimme 3"
  340. 50740 print"[144]856  [149]modulations-bereich"
  341. 50750 print"[144]861  [149]tastverhaeltnis-glidegeschw., st.1"
  342. 50760 print"[144]862  [149]tastverhaeltnis-glidegeschw., st.2"
  343. 50770 print"[144]863  [149]tastverhaeltnis-glidegeschw., st.3"
  344. 50780 print"[144]864  [149]tastverhaeltnis-modulationsgeschw.      stimme 1"
  345. 50790 print"[144]865  [149]tastverhaeltnis-modulationsgeschw.      stimme 2"
  346. 50800 print"[144]866  [149]tastverhaeltnis-modulationsgeschw.      stimme 3"
  347. 50810 print"[144]867  [149]tastverhaeltnis-modulationsbereich"
  348. 50820 print"[154]     taste druecken!":wait198,1:poke198,0
  349. 50830 print"[147][149]anmerkung zu den effekteinstellungen:"
  350. 50840 print"addieren sie zu der zahl 0 alle zahlen"
  351. 50850 print"der effekte, die sie fuer die jeweilige"
  352. 50860 print"stimme einschalten wollen:"
  353. 50870 print" 1 [144]glide nach oben
  354. 50880 [153]" 3 stopglide nach unten"
  355. 50890 [153]" 4 stoptastverhaeltnisglide nach oben"
  356. 50900 [153]" 8 stoptastverhaeltnisglide nach unten"
  357. 50910 [153]"16 stopmodulation (der frequenz)
  358. 50920 print"32 [144]tastverhaeltnismodulation"
  359. 50930 print"[149]dann poken sie diese zahl in die effekt-";
  360. 50940 print"einstellungsspeicherzelle der jeweiligen";
  361. 50950 print"stimme (also in 847, 848 oder 849)."
  362. 50960 print"[149]nicht vergessen, dass sie diese effekte"
  363. 50970 print"auch noch einstellen koennen!"
  364. 50980 print"[154]   taste druecken!":wait198,1:poke198,0
  365. 50990 print"[147]   filtereffekte                        [146]"
  366. 51000 print"[144]860  [149]filter-effekteinstellungen
  367. 51010 [153]"stop857  verifyfilter-glidegeschwindigkeit"
  368. 51020 [153]"stop858  verifyfilter-modulationsgeschwindigkeit"
  369. 51030 [153]"stop859  verifyfilter-modulationsbereich"
  370. 51040 [153]"stop867  verifyfilter-anfangswert"
  371. 51050 [153]"stop875  verifystimme (1-3) auf filter"
  372. 51060 [153]"verifyanmerkung zu:filtereffekteinstellungen"
  373. 51070 [153]"addieren sie zu der zahl 0 alle zahlen"
  374. 51080 [153]"der effekte, die sie einschalten wollen:"
  375. 51090 [153]"1 stopfilterglide nach oben"
  376. 51100 [153]"3 stopfilterglide nach unten"
  377. 51110 [153]"4 stopfilter-modulation"
  378. 51120 [153]"dann poken sie die zahl in die speicher-";
  379. 51130 [153]"zelle 860."
  380. 51140 [153]"cont   taste druecken!":[146]198,1:[151]198,0
  381. 51150 [153]"loadverifyanmerkungen:"
  382. 51160 [153]"verifyder filter-anfangswert ist der wert, den";
  383. 51170 [153]"der filter normal haben soll,von dem aus";
  384. 51180 [153]"also der glide oder die modulation aus-"
  385. 51190 [153]"gehen soll."
  386. 51200 [153]"um den filter einzuschalten, muessen sie";
  387. 51210 [153]"aber zuerst den filter im soundchip  ak-";
  388. 51220 [153]"tivieren (filtermodus und filter ein-"
  389. 51230 [153]"schalten, siehe commodore 64-anleitungs-";
  390. 51240 [153]"buch)."
  391. 51250 [153]"     taste druecken!":[146]198,1:[151]198,0
  392. 51260 [153]"load   wichtig!                             wait"
  393. 51270 [153]"verifywenn soundcontrol 2 eingeschaltet ist,"
  394. 51280 [153]"befindet sich das soundchip nicht mehr"
  395. 51290 [153]"im adressbereich 54272 ($d400), sondern"
  396. 51300 [153]"im bereich 50176 ($c400). somit bekom-"
  397. 51310 [153]"men sie die moeglichkeit, das soundchip"
  398. 51320 [153]"erstmals zu lesen (peek), was sonst"
  399. 51330 [153]"nicht moeglich war."
  400. 51340 [153]"nicht vergessen: wenn oben auf dem"
  401. 51350 [153]"bildschirm 'soundcontrol 2...' steht,"
  402. 51360 [153]"muessen sie bei soundchip-pokes die"
  403. 51370 [153]"anfangsadresse 50176 statt 54272 benut-"
  404. 51380 [153]"zen."
  405. 51390 [153]"ende der anleitung.
  406. 51400 print"um die funktionen auszuprobieren,waehlen";
  407. 51410 print"sie im hauptmenue nummer 6!"
  408. 51420 print"[154]     taste druecken!":wait198,1:poke198,0
  409. 51430 run
  410. 55000 rem"
  411. 55010 [158]39936:[151]53280,1:[151]53281,1
  412. 55011 an[178]1:ab[178]1:ha[178]14:t$[178]" x":[137]55020
  413. 55013 e[178]0:[139]gs[178]1[167]e[178]e[170]1
  414. 55014 [139]gs[178]2[167]e[178]e[170]3
  415. 55015 [139]ts[178]1[167]e[178]e[170]4
  416. 55016 [139]ts[178]2[167]e[178]e[170]12
  417. 55017 [139]ms[178]1[167]e[178]e[170]16
  418. 55018 [139]tm[178]1[167]e[178]e[170]32
  419. 55019 [151]847,e:[153]"";:[137]55030
  420. 55020 [153]"load";
  421. 55025 [153]"stoptantantantantantantantantan=tantantantantantantantantantantantantantan=tantantantantantantantantantantantantan"
  422. 55030 [153]"wave:";[194](832);"stop(NULL)open tastverh.:";[194](835);"stop(NULL) anschlag:";an
  423. 55035 [139]y[178]1[167][153]"";:[137]55060
  424. 55040 [153]"    a    stop(NULL)open       b      stop(NULL)      c
  425. 55050 print"[144][192][192][192][192][192][192][192][192][178][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][178][192][192][192][192][192][192][192][192][192][192][192]"
  426. 55060 print"ton:";t$;"  [144][221][156] abschwellen:";ab;" [144][221] [154]halten:";ha;"[157] "
  427. 55065 ify=1thenprint"";:goto55090
  428. 55070 print"q bis ^ [144][221][156]       d         [144][221][154]    f  "
  429. 55080 print"[144][192][192][192][192][192][192][192][192][177][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192]"
  430. 55090 print"[129]mod: aus";:ifms=1thenprint"[157][157][157]an ";
  431. 55100 print" [144][221][149] mod-geschw.:";peek(853);"[144][221][150]bereich:";peek(856)
  432. 55105 ify=1thenprint"";:goto55130
  433. 55110 print"[129]    g    [144][221][149]       h        [144][221][150]    j  "
  434. 55120 print"[144][192][192][192][192][192][192][192][192][192][177][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192]"
  435. 55130 print"[151]glide: aus  ";:ifgs=1thenprint"[157][157][157][157][157]hoch ";
  436. 55140 ifgs=2orgs=3thenprint"[157][157][157][157][157][157]runter";
  437. 55150 print"  [144][221][152] glide-geschw.:";peek(850)
  438. 55155 ify=1thenprint"";:goto55180
  439. 55160 print"[151]       k      [144][221][152]        l
  440. 55170 [153]"stoptantantantantantantantantantantantantantan>tantantantantantantan=tantantantantantantantantantantantantantantan"
  441. 55180 [153]"printtastverh.-glide: aus  ";:[139]ts[178]1[167][153]"cmdcmdcmdcmdcmdhoch ";
  442. 55190 [139]ts[178]2[176]ts[178]3[167][153]"cmdcmdcmdcmdcmdcmdrunter";
  443. 55200 [153]"stop(NULL)conttv-glideg.:";[194](861)
  444. 55205 [139]y[178]1[167][153]"";:[137]55230
  445. 55210 [153]"print           m          stop(NULL)cont      n  "
  446. 55220 [153]"stoptantantantantantantantantantantan=tantantantantantantantantantan>tantan=tantantantantantantantantantantantan"
  447. 55230 [153]"tv-mod: aus";:[139]tm[178]1[167][153]"cmdcmdcmdan ";
  448. 55240 [153]"stop(NULL)clrtv-mod-g.:";[194](864);"stop(NULL)sysbereich:";[194](899)
  449. 55245 [139]y[178]1[167][153]"";:[137]55320
  450. 55250 [153]"      v    stop(NULL)clr     s       stop(NULL)sys     x
  451. 55260 print"[144][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192]"
  452. 55265 ify<>0then55320
  453. 55270 print"[149]benutzen sie die 2. tastenreihe zum"
  454. 55280 print"spielen von verschiedenen toenen. um die";
  455. 55290 print"effekte einzustellen, druecken sie die"
  456. 55300 print"unten in den schwarzen kaesten angebebe-";
  457. 55310 print"nen tasten."
  458. 55315 print"[154]mit 'f1' wieder zum hauptmenue!"
  459. 55320 y=1:m$="qwertyuiop@*^"
  460. 55330 getr$:ifr$=""then55330
  461. 55340 forx=1to13:ifr$<>mid$(m$,x,1)thennextx:goto55500
  462. 55350 poke845,1:poke846,x+48:t$=" "+mid$(m$,x,1)
  463. 55355 sys38912
  464. 55360 goto20
  465. 55500 d=asc(r$)-64:ifd>12thend=d-12:goto55520
  466. 55505 ifd<1then55540
  467. 55510 ondgoto55600,55610,55620,55630,20,55640,55650,55660,20,55670,55680,55690
  468. 55520 ondgoto55700,55710,20,20,20,20,55730,20,20,55720,20,55740
  469. 55525 ifr$="[133]"thenrun
  470. 55530 goto55330
  471. 55540 goto55330
  472. 55600 ifpeek(832)=33thenpoke832,65:goto20
  473. 55602 ifpeek(832)=65thenpoke832,81:goto20
  474. 55603 ifpeek(832)=81thenpoke832,17:goto20
  475. 55604 ifpeek(832)=17thenpoke832,33:goto20
  476. 55609 goto20
  477. 55610 poke835,peek(835)+1
  478. 55612 ifpeek(835)=8thenpoke835,0
  479. 55619 goto20
  480. 55620 an=an+1:poke838,peek(838)+16:ifan=10thenan=0:poke838,ab
  481. 55629 goto20
  482. 55630 ab=ab+1:poke838,peek(838)+1:ifab=10thenab=0:poke838,an*16
  483. 55639 goto20
  484. 55640 ha=ha+1:poke841,peek(841)+16:ifha=15thenha=0:poke841,0
  485. 55649 goto20
  486. 55650 ms=ms+1:ifms=2thenms=0
  487. 55659 goto20
  488. 55660 poke853,peek(853)+1:ifpeek(853)=10thenpoke853,1
  489. 55669 goto20
  490. 55670 poke856,peek(856)+1:ifpeek(856)=10thenpoke856,2
  491. 55679 goto20
  492. 55680 gs=gs+1:ifgs=3thengs=0
  493. 55689 goto20
  494. 55690 poke850,peek(850)+1:ifpeek(850)=10thenpoke850,1
  495. 55699 goto20
  496. 55700 ts=ts+1:ifts=3thents=0
  497. 55709 goto20
  498. 55710 poke861,peek(861)+1:ifpeek(861)=10thenpoke861,1
  499. 55719 goto20
  500. 55720 tm=tm+1:iftm=2thentm=0
  501. 55729 goto20
  502. 55730 poke864,peek(864)+1:ifpeek(864)=10thenpoke864,1
  503. 55739 goto20
  504. 55740 poke899,peek(899)+1:ifpeek(899)=10thenpoke899,2
  505. 55749 goto20
  506. 56000 poke50257,020:rem status
  507. 56006 poke53280,11:poke53281,11
  508. 56010 print"[147]                                        [146]";
  509. 56020 print"     adsr-grafik fuer oszillator 3      [146]";
  510. 56030 print"                                        [146]";
  511. 56040 print"daten eingeben(cursortasten o.return    druecken!)
  512. 56050 [153]"anschlag":w[178]13:[141]62000:a[178]w:[153]"abschwellen":w[178]12:[141]62000:d[178]w
  513. 56070 [153]"halten":w[178]9:[141]62000:s[178]w:[153]"abschwellen":w[178]14:[141]62000:r[178]w
  514. 56080 ad[178]a[172]16[170]d:sr[178]s[172]16[170]r
  515. 56085 [129]x[178]0[164]24:[151]54272[170]x,0:[130]x:[151]54272[170]24,15
  516. 56090 [153]"druecken sie nun die shifttaste solange,";
  517. 56100 [153]"bis der ton ausklingen soll (mind.2 sec)"
  518. 56110 [146]654,1:b(1)[178]32:b(2)[178]33:[151]189,199
  519. 56120 [158]40192:[151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]2:s[178]54272
  520. 56130 [151]s[170]20,sr:[151]s[170]19,ad:[151]s[170]18,33:[151]s[170]15,20:w[178]s[170]28:h[178]s[170]18
  521. 56140 [129]x[178]0[164]255:t[178]200[171][194](w)[172].78125:[151]187,x:[151]188,t:[158]40368:[151]h,b([194](654)[170]1):[130]
  522. 56160 [151]198,0:[146]198,1:[151]198,0
  523. 56170 [138]
  524. 60000 w(1)[178]17:w(2)[178]33:w(3)[178]65:w(4)[178]81:w(5)[178]129:h[178]6
  525. 60010 [153]
  526. 60020 [153]"on";w(w);"cmd  "
  527. 60030 [161]r$:[139]r$[178]"+"[167]w[178]w[170]1:[139]w[178]h[167]w[178]1
  528. 60040 [139]r$[178]"-"[167]w[178]w[171]1:[139]w[178]0[167]w[178]h[171]1
  529. 60050 [139]r$[178][199](13)[167][142]
  530. 60060 [137]60020
  531. 61000 [153]:h[178]200
  532. 61010 [153]"on";w;"cmd    "
  533. 61020 [161]r$:[139]r$[178]""[167]w[178]w[170]1:[139]w[178]h[170]1[167]w[178]1
  534. 61030 [139]r$[178]""[167]w[178]w[171]1:[139]w[178]0[167]w[178]h
  535. 61040 [139]r$[178][199](13)[167][142]
  536. 61050 [137]61010
  537. 62000 h[178]15:[153]:[137]61010
  538. 63000 w(1)[178]17:w(2)[178]19:w(3)[178]21:w(4)[178]23:w(5)[178]33:w(6)[178]35:w(7)[178]65:w(8)[178]129
  539. 63010 h[178]9:[137]60010
  540.